www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_chk_add_class.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% AJAXshowLoader() %> <% biao=trim(request("biao")) biaog="[ND_userGroup]" pid=request("classid")&"" if qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if err1=0 if request("nme")="" then err1=1 %> <script language="javascript"> alert("请填写分类名称"); history.go(-1); </script> <% end if if isnumeric(request("orders"))=0 then err1=1 %> <script language="javascript"> alert("顺序号必须为数字"); history.go(-1); </script> <% end if if err1=0 then set rs=server.CreateObject("adodb.recordset") rs.open "select * from "&biao,conn,1,3 rs.addnew rs("classname")=trim(request("nme")) rs("orders")=request("orders") rs("titleColor")=request("ColorModes") rs("titleFont")=request("FontModes") classid=pid if classid="xx" then rs("parent_id")="0" rs("parent_id_list")="0" rs("deepth")=0 else rs("parent_id")=classid set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from "&biao&" where id="&classid,conn,1,3 pidlist=rs1("parent_id_list") rs("parent_id_list")=pidlist&","&classid sss1=ubound(split(pidlist&","&classid,",")) rs("deepth")=sss1 end if rs("is_open_use_blank")=request("LinkTarget") rs("is_link_class")=request("isoutLink") rs("outlink")=request("TurnLinkUrl") %> <script language="javascript"> alert("添加成功"); self.location="D_admin_models_classbiao.asp?biao=<%=request("biao")%>"; </script> <% rs.update end if %> <% AJAXcloseLoader() %>